This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.
Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.
ggplotly(q)
|================================================================================ | 90% ~0 s remaining
|================================================================================= | 90% ~0 s remaining
|================================================================================== | 92% ~0 s remaining
|==================================================================================== | 94% ~0 s remaining
|==================================================================================== | 94% ~0 s remaining
|====================================================================================== | 96% ~0 s remaining
|======================================================================================== | 98% ~0 s remaining
Add a new chunk by clicking the Insert Chunk button on the toolbar or by pressing Ctrl+Alt+I.
When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the Preview button or press Ctrl+Shift+K to preview the HTML file).
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpUaGlzIGlzIGFuIFtSIE1hcmtkb3duXShodHRwOi8vcm1hcmtkb3duLnJzdHVkaW8uY29tKSBOb3RlYm9vay4gV2hlbiB5b3UgZXhlY3V0ZSBjb2RlIHdpdGhpbiB0aGUgbm90ZWJvb2ssIHRoZSByZXN1bHRzIGFwcGVhciBiZW5lYXRoIHRoZSBjb2RlLiANCg0KVHJ5IGV4ZWN1dGluZyB0aGlzIGNodW5rIGJ5IGNsaWNraW5nIHRoZSAqUnVuKiBidXR0b24gd2l0aGluIHRoZSBjaHVuayBvciBieSBwbGFjaW5nIHlvdXIgY3Vyc29yIGluc2lkZSBpdCBhbmQgcHJlc3NpbmcgKkN0cmwrU2hpZnQrRW50ZXIqLiANCg0KYGBge3J9DQoNCiMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjDQojIEhvdyB0byBjcmVhdGUgQmVhdXRpZnVsLCBJbnRlcmFjdGl2ZSBkYXRhIHZpc3VhbGl6YXRpb25zIHVzaW5nIFBsb3RseSBpbiBSIGFuZCBQeXRob24/IA0KIyBodHRwczovL3d3dy5hbmFseXRpY3N2aWRoeWEuY29tL2Jsb2cvMjAxNy8wMS9iZWdpbm5lcnMtZ3VpZGUtdG8tY3JlYXRlLWJlYXV0aWZ1bC1pbnRlcmFjdGl2ZS1kYXRhLXZpc3VhbGl6YXRpb25zLXVzaW5nLXBsb3RseS1pbi1yLWFuZC1weXRob24vDQojIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIw0KDQojPT09PT09PT09PT09PT09PT09PT09PT09PT0NCiNTaGFyaW5nIHRoZSBwbG90cyBjYW4gYmUgZG9uZSBhczoNCiM9PT09PT09PT09PT09PT09PT09PT09PT09PQ0KU3lzLnNldGVudigicGxvdGx5X3VzZXJuYW1lIj0ic2FuZGlwcGF1bCIpDQpTeXMuc2V0ZW52KCJwbG90eV9hcGlfa2V5Ij0iQ1RlZWcwUEFjVVBNRlJ3UGFZajgiKQ0KI1RvIHBvc3QgdGhlIHBsb3RzIG9ubGluZQ0KcGxvdGx5X1BPU1QoeCA9IFBsb3R0aW5nX09iamVjdCkNCiNUbyBwbG90IHRoZSBsYXN0IHBsb3QgeW91IGNyZWF0ZWQsIHNpbXBseSB1c2UgdGhpcy4NCnBsb3RseV9QT1NUKHggPSBsYXN0X3Bsb3QoKSwgZmlsZW5hbWUgPSAiWFlaIikNCg0KDQojPT09PT09PT09PT09PT09PT09PT09PT09PT0NCiNTZXR0aW5nIHVwIERhdGENCiM9PT09PT09PT09PT09PT09PT09PT09PT09PQ0KI0xvYWRpbmcgaXJpcyBkYXRhc2V0DQpkYXRhKCJpcmlzIikNCiNTdHJ1Y3R1cmUgb2YgSXJpcyBkYXRhc2V0DQpzdHIoaXJpcykNCg0KI0xvYWRpbmcgdGhlIGRhdGENCmRhdGEoIkFpclBhc3NlbmdlcnMiKQ0KI1N0cnVjdHVyZSBvZiBJbnRlcm5hdGlvbmFsIEFpcmxpbmUgUGFzc2VuZ2VycyBUaW1lIHNlcmllcyBEYXRhc2V0DQpzdHIoQWlyUGFzc2VuZ2VycykNCg0KI0xvYWRpbmcgdGhlIGRhdGENCmRhdGEoInZvbGNhbm8iKQ0KI0NoZWNraW5nIGRpbWVuc2lvbnMNCmRpbSh2b2xjYW5vKQ0KDQoNCiM9PT09PT09PT09PT09PT09PT09PT09PT09PQ0KI0Jhc2ljIFZpc3VhbGl6YXRpb24NCiM9PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQoNCmlmKCFyZXF1aXJlKHBsb3RseSkpew0KICBpbnN0YWxsLnBhY2thZ2VzKCJwbG90bHkiKQ0KfQ0KbGlicmFyeShwbG90bHkpDQoNCiNhdHRhY2hpbmcgdGhlIHZhcmlhYmxlcw0KYXR0YWNoKGlyaXMpDQoNCiMjIyMjIyBIaXN0b2dyYW1zICMjIyMjIw0KDQojcGxvdHRpbmcgYSBoaXN0b2dyYW0gd2l0aCBTZXBhbC5MZW5ndGggdmFyaWFibGUgYW5kIHN0b3JpbmcgaXQgaW4gaGlzdA0KaGlzdDwtIHBsb3RfbHkoeD1TZXBhbC5MZW5ndGgsIHR5cGUgPSAnaGlzdG9ncmFtJykNCiNkZWZpbmluZyBsYWJlbHMgYW5kIHRpdGxlIHVzaW5nIGxheW91dCgpDQpsYXlvdXQoaGlzdCwgdGl0bGUgPSAiSXJpcyBEYXRhc2V0IC0gU2VwYWwuTGVuZ3RoIiwgDQogICAgICAgeGF4aXMgPSBsaXN0KHRpdGxlPSJTZXBhbC5MZW5ndGgiKSwgDQogICAgICAgeWF4aXMgPSBsaXN0KHRpdGxlPSJDb3VudCIpKQ0KDQoNCiMjIyMjIyBCYXIgQ2hhcnRzICMjIyMjIw0KDQojcGxvdHRpbmcgYSBoaXN0b2dyYW0gd2l0aCBTcGVjaWVzIHZhcmlhYmxlIGFuZCBzdG9yaW5nIGl0IGluIGJhcl9jaGFydA0KYmFyX2NoYXJ0PC1wbG90X2x5KHg9U3BlY2llcywgdHlwZT0naGlzdG9ncmFtJykNCiNkZWZpbmluZyBsYWJlbHMgYW5kIHRpdGlsZSB1c2luZyBsYXlvdXQoKQ0KbGF5b3V0KGJhcl9jaGFydCwgdGl0bGUgPSAiSXJpcyBEYXRhc2V0IC0gU3BlY2llcyIsDQogICAgICAgeGF4aXMgPSBsaXN0KHRpdGxlPSJTcGVjaWVzIiksDQogICAgICAgeWF4aXMgPSBsaXN0KHRpdGxlPSJDb3VudCIpKQ0KDQoNCiMjIyMjIyBCb3ggUGxvdHMgIyMjIyMjDQoNCiNwbG90dGluZyBhIEJveHBsb3Qgd2l0aCBTZXBhbC5MZW5ndGggdmFyaWFibGUgYW5kIHN0b3JpbmcgaXQgaW4gYm94X3Bsb3QNCmJveF9wbG90PC1wbG90X2x5KHk9U2VwYWwuTGVuZ3RoLCB0eXBlID0gJ2JveCcsIGNvbG9yID0gU3BlY2llcykNCiNkZWZpbmluZyBsYWJlbHMgYW5kIHRpdGxlIHVzaW5nIGxheW91dCgpDQpsYXlvdXQoYm94X3Bsb3QsIHRpdGxlPSJJcmlzIERhdGFzZXQgLSBTZXBhbC5MZW5ndGggQm94cGxvdCIsDQogICAgICAgeWF4aXMgPSBsaXN0KHRpdGxlPSJTZXBhbC5MZW5ndGgiKSkNCg0KDQojIyMjIyMgU2NhdHRlciBQbG90cyAjIyMjIyMNCg0KI3Bsb3R0aW5nIGEgU2NhdHRlciBQbG90IHdpdGggU2VwYWwuTGVuZ3RoIGFuZCBTZXBhbC5XaWR0aCB2YXJpYWJsZXMgYW5kIHN0b3JpbmcgaXQgaW4gc2NhdHRlcl9wbG90MQ0Kc2NhdHRlcl9wbG90MTwtcGxvdF9seSh4PVNlcGFsLkxlbmd0aCwgeT1TZXBhbC5XaWR0aCwgdHlwZSA9ICdzY2F0dGVyJywgbW9kZT0nbWFya2VycycpDQojZGVmaW5pbmcgbGFiZWxzIGFuZCB0aXRpbGUgdXNpbmcgbGF5b3V0KCkNCmxheW91dChzY2F0dGVyX3Bsb3QxLCB0aXRsZT0iSXJpcyBEYXRhc2VyIC0gU2VwYWwuTGVuZ3RoIHZzIFNlcGFsLldpZHRoIiwNCiAgICAgICB4YXhpcyA9IGxpc3QodGl0bGU9IlNlcGFsLkxlbmd0aCIpLA0KICAgICAgIHlheGlzID0gbGlzdCh0aXRsZT0iU2VwYWwuV2lkdGgiKSkNCiMxLiBMZXTigJlzIGdvIGEgc3RlcCBmdXJ0aGVyIGFuZCBhZGQgYW5vdGhlciBkaW1lbnNpb24gKFNwZWNpZXMpIHVzaW5nIGNvbG9yLg0KI3Bsb3R0aW5nIGEgU2NhdHRlciBQbG90IHdpdGggU2VwYWwuTGVuZ3RoIGFuZCBTZXBhbC5XaWR0aCB2YXJpYWJsZXMgd2l0aCBjb2xvciByZXByZXNlbnRpbmcgdGhlIFNwZWNpZXMgYW5kIHN0b3JpbmcgaXQgaW4gc2NhdHRlcl9wbG90MTINCnNjYXR0ZXJfcGxvdDI8LXBsb3RfbHkoeD1TZXBhbC5MZW5ndGgsIHk9U2VwYWwuV2lkdGgsIHR5cGUgPSAnc2NhdHRlcicsIG1vZGU9J21hcmtlcnMnLCBjb2xvciA9IFNwZWNpZXMpDQojZGVmaW5pbmcgbGFiZWxzIGFuZCB0aXRpbGUgdXNpbmcgbGF5b3V0KCkNCmxheW91dChzY2F0dGVyX3Bsb3QyLCB0aXRsZT0iSXJpcyBEYXRhc2V0IC0gU2VwYWwuTGVuZ3RoIHZzIFNlcGFsLldpZHRoIiwNCiAgICAgICB4YXhpcyA9IGxpc3QodGl0bGU9IlNlcGFsLkxlbmd0aCIpLA0KICAgICAgIHlheGlzID0gbGlzdCh0aXRsZT0iU2VwYWwuV2lkdGgiKSkNCiMyLiBXZSBjYW4gYWRkIGFub3RoZXIgZGltZW5zaW9uIChQZXRhbCBMZW5ndGgpIHRvIHRoZSBwbG90IGJ5IHVzaW5nIHRoZSBzaXplIG9mIGVhY2ggZGF0YSBwb2ludCBpbiB0aGUgcGxvdC4NCiNwbG90dGluZyBhIFNjYXR0ZXIgUGxvdCB3aXRoIFNlcGFsLkxlbmd0aCBhbmQgU2VwYWwuV2lkdGggdmFyaWFibGVzIHdpdGggY29sb3IgcmVwcmVzbmV0aW5nIHRoZSBTcGVjaWVzIGFuZCBzaXplIHJlcHJlc2VudGluZyB0aGUgUGV0YWwuTGVuZ3RoLiBUaGVuLCBzdG9yaW5nIGl0IGluIHNjYXR0ZXJfcGxvdDMNCnNjYXR0ZXJfcGxvdDM8LXBsb3RfbHkoeD1TZXBhbC5MZW5ndGgsIHk9U2VwYWwuV2lkdGgsIHR5cGUgPSAnc2NhdHRlcicsIG1vZGU9J21hcmtlcnMnLCBjb2xvciA9IFNwZWNpZXMsIHNpemUgPSBQZXRhbC5MZW5ndGgpDQojZGVmaW5pbmcgbGFiZWxzIGFuZCB0aXRpbGUgdXNpbmcgbGF5b3V0KCkNCmxheW91dChzY2F0dGVyX3Bsb3QzLCB0aXRsZT0iSXJpcyBEYXRhc2V0IC0gU2VwYWwuTGVuZ3RoIHZzIFNlcGFsLldpZHRoIiwNCiAgICAgICB4YXhpcyA9IGxpc3QodGl0bGU9IlNlcGFsLkxlbmd0aCIpLA0KICAgICAgIHlheGlzID0gbGlzdCh0aXRsZT0iU2VwYWwuV2lkdGgiKSkNCg0KDQoNCiMjIyMjIyBUaW1lIFNlcmllcyBQbG90cyAjIyMjIyMNCg0KdGltZV9zZXJpZXM8LXBsb3RfbHkoeD10aW1lKEFpclBhc3NlbmdlcnMpLCB5PUFpclBhc3NlbmdlcnMsIHR5cGUgPSAic2NhdHRlciIsIG1vZGU9ImxpbmVzIikNCmxheW91dCh0aW1lX3NlcmllcywgdGl0bGU9IkFpclBhc3NlbmdlcnMgRGF0YXNldCAgLVRpbWUgU2VyaWVzIFBsb3QiLA0KICAgICAgIHhheGlzID0gbGlzdCh0aXRsZT0iVGltZSIpLA0KICAgICAgIHlheGlzID0gbGlzdCh0aXRsZT0iUGFzc2VuZ2VycyIpKQ0KDQoNCg0KDQojPT09PT09PT09PT09PT09PT09PT09PT09PT0NCiNBZHZhbmNlZCAgVmlzdWFsaXphdGlvbg0KIz09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCg0KIyMjIyMjIEhlYXQgTWFwcyAjIyMjIyMNCnBsb3RfbHkoej1+dm9sY2FubywgdHlwZSA9ICJoZWF0bWFwIikNCg0KIyMjIyMjIDNEIFNjYXR0ZXIgUGxvdHMgIyMjIyMjDQojUGxvdHRpbmcgdGhlIElyaXMgZGF0YXNldCBpbiAzRA0KcGxvdF9seSh4PVNlcGFsLkxlbmd0aCwgeT1TZXBhbC5XaWR0aCwgej1QZXRhbC5MZW5ndGgsIHR5cGUgPSAic2NhdHRlcjNkIiwgbW9kZT0nbWFya2VycycsIHNpemUgPSBQZXRhbC5XaWR0aCwgY29sb3IgPSBTcGVjaWVzKQ0KDQojIyMjIyMgM0QgU3VyZmFjZXMgIyMjIyMjDQpwbG90X2x5KHo9fnZvbGNhbm8sIHR5cGUgPSAic3VyZmFjZSIpDQoNCg0KDQoNCiM9PT09PT09PT09PT09PT09PT09PT09PT09PQ0KI1VzaW5nIHBsb3RseSB3aXRoIGdncGxvdDINCiM9PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQoNCiNMb2FkaW5nIHJlcXVpcmVkIGxpYnJhcmllcw0KbGlicmFyeShnZ3Bsb3QyKQ0KbGlicmFyeShnZ21hcCkNCg0KI0xpc3Qgb2YgQ291bnRyaWVzIGZvciBJQ0MgVDIwIFdDIDIwMTcNCklDQ19XQ19UMjAgPC0gYygiQXVzdHJhbGlhIiwgIkluZGlhIiwiU291dGggQWZyaWNhIiwiTmV3IFplYWxhbmQiLCJTcmkgTGFua2EiLCJFbmdsYW5kIiwiQmFuZ2xhZGVzaCIsIlBha2lzdGFuIiwiV2VzdCBJbmRpZXMiLCJJcmVsYW5kIiwiWmltYmFid2UiLCJBZmdoYW5pc3RhbiIpDQoNCiNleHRyYWN0IGdlbyBsb2NhdGlvbiBvZiB0aGVzZSBjb3VudHJpZXMNCmNvdW50cmllcyA8LSBnZW9jb2RlKElDQ19XQ19UMjApDQoNCiNtYXAgbG9uZ2l0dWRlIGFuZCBsYXRpdHVkZSBpbiBzZXBhcmF0ZSB2YXJpYWJsZXMNCm5hdGlvbi54IDwtIGNvdW50cmllcyRsb24NCm5hdGlvbi55IDwtIGNvdW50cmllcyRsYXQNCg0KI3VzaW5nIGdncGxvdCB0byBwbG90IHRoZSB3b3JsZCBtYXANCm1hcFdvcmxkIDwtIGJvcmRlcnMoIndvcmxkIiwgY29sb3VyID0gImdyZXkiLCBmaWxsID0gImxpZ2h0Ymx1ZSIpDQoNCiNhZGQgZGF0YSBwb2ludHMgdG8gdGhlIHdvcmxkIG1hcA0KcTwtIGdncGxvdCgpK21hcFdvcmxkK2dlb21fcG9pbnQoYWVzKHg9bmF0aW9uLngsIHk9bmF0aW9uLnkpLCBjb2xvcj0icmVkIiwgc2l6ZT0zKQ0KDQoNCiNVc2luZyBnZ3Bsb3RseSgpIG9mIHBsb3RseSAgdG8gYWRkIGludGVyYWN0aXZpdHkgdG8gZ2dwbG90IG9iamVjdHMuDQpnZ3Bsb3RseShxKQ0KDQoNCmBgYA0KDQpBZGQgYSBuZXcgY2h1bmsgYnkgY2xpY2tpbmcgdGhlICpJbnNlcnQgQ2h1bmsqIGJ1dHRvbiBvbiB0aGUgdG9vbGJhciBvciBieSBwcmVzc2luZyAqQ3RybCtBbHQrSSouDQoNCldoZW4geW91IHNhdmUgdGhlIG5vdGVib29rLCBhbiBIVE1MIGZpbGUgY29udGFpbmluZyB0aGUgY29kZSBhbmQgb3V0cHV0IHdpbGwgYmUgc2F2ZWQgYWxvbmdzaWRlIGl0IChjbGljayB0aGUgKlByZXZpZXcqIGJ1dHRvbiBvciBwcmVzcyAqQ3RybCtTaGlmdCtLKiB0byBwcmV2aWV3IHRoZSBIVE1MIGZpbGUpLg0K